replicate3F :: Maybe (a -> [a])
replicate3F = replicate <$> Just 3

applyMaybe :: Maybe (a -> b) -> Maybe a -> Maybe b
applyMaybe (Just f) (Just x) = Just $ f x
applyMaybe _ _               = Nothing
